home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5900.txt < prev    next >
Encoding:
Text File  |  1994-03-01  |  5.3 KB  |  143 lines
  1. 10 GOTO310
  2. 100 DATAAc Actinium 89(7-3a) 227.0278
  3. 101 DATAAg Silver 47(5-1b) 107.8682
  4. 102 DATAAl Aluminium 13(3-3b) 26.98154
  5. 103 DATAAm Americium 95(7-3a) (243)
  6. 104 DATAAr Argon 18(3-0) 39.948
  7. 105 DATAAs Arsenic 33(4-5b) 74.9216
  8. 106 DATAAt Astatine 85(6-7b) (210)
  9. 107 DATAAu Gold 79(6-1b) 196.9665
  10. 108 DATAB Boron 5(2-3b) 10.81
  11. 109 DATABa Barium 56(6-2a) 137.33
  12. 110 DATABe Beryllium 4(2-2a) 9.01218
  13. 111 DATABi Bismuth 83(6-5b) 208.9804
  14. 112 DATABk Berkelium 97(7-3a) (247)
  15. 113 DATABr Bromine 35(4-7b) 79.904
  16. 114 DATAC Carbon 6(2-4b) 12.011
  17. 115 DATACa Calcium 20(4-2a) 40.08
  18. 116 DATACd Cadmium 48(5-2b) 112.41
  19. 117 DATACe Cerium 58(6-3a) 140.12
  20. 118 DATACf Californium 98(7-3a) (251)
  21. 119 DATACl Chlorine 17(3-7b) 35.453
  22. 120 DATACm Curium 96(7-3a) (247)
  23. 121 DATACo Cobalt 27(4-8) 58.9332
  24. 122 DATACr Chromium 24(4-6a) 51.996
  25. 123 DATACs Cesium 55(6-1a) 132.9054
  26. 124 DATACu Copper 29(4-1b) 63.546
  27. 125 DATADy Dysprosium 66(6-3a) 162.50
  28. 126 DATAEr Erbium 68(6-3a) 167.26
  29. 127 DATAEs Einsteinium 99(7-3a) (252)
  30. 128 DATAEu Europium 63(6-3a) 151.96
  31. 129 DATAF Fluorine 9(2-7b) 18.998403
  32. 130 DATAFe Iron 26(4-8) 55.847
  33. 131 DATAFm Fermium 100(7-3a) (257)
  34. 132 DATAFr Francium 87(7-1a) (223)
  35. 133 DATAGa Gallium 31(4-3b) 69.72
  36. 134 DATAGd Gadolinium 64(6-3a) 157.25
  37. 135 DATAGe Germanium 32(4-4b) 72.59
  38. 136 DATAH Hydrogen 1(1-1a) 1.00794
  39. 137 DATAHe Helium 2(1-0 ) 4.00260
  40. 138 DATAHf Hafnium 72(6-4a) 178.49
  41. 139 DATAHg Mercury 80(6-2b) 200.59
  42. 140 DATAHo Holmium 67(6-3a) 164.9304
  43. 141 DATAI Iodine 53(5-7b) 126.9045
  44. 142 DATAIn Indium 49(5-3b) 114.82
  45. 143 DATAIr Iridium 77(6-8) 192.22
  46. 144 DATAK Potassium 19(4-1a) 39.0983
  47. 145 DATAKr Krypton 36(4-0) 83.80
  48. 146 DATALa Lanthanum 57(6-3a) 138.9055
  49. 147 DATALi Lithium 3(2-1a) 6.941
  50. 148 DATALr Lawrencium 103(7-3a) (260)
  51. 149 DATALu Lutetium 71(6-3a) 174.967
  52. 150 DATAMd Mendelevium 101(7-3a) (258)
  53. 151 DATAMg Magnesium 12(3-2a) 24.305
  54. 152 DATAMn Manganese 25(4-7a) 54.9380
  55. 153 DATAMo Molybdenum 42(5-6a) 95.94
  56. 154 DATAN Nitrogen 7(2-5b) 14.0067
  57. 155 DATANa Sodium 11(3-1a) 22.98977
  58. 156 DATANb Niobium 41(5-5a) 92.9064
  59. 157 DATANd Neodymium 60(6-3a) 144.24
  60. 158 DATANe Neon 10(2-0) 20.179
  61. 159 DATANi Nickel 28(4-8) 58.69
  62. 160 DATANo Nobelium 102(7-3a) (259)
  63. 161 DATANp Neptunium 93(7-3a) 237.0482
  64. 162 DATAO Oxygen 8(2-6b) 15.9994
  65. 163 DATAOs Osmium 76(6-8) 190.2
  66. 164 DATAP Phosphorus 15(3-5b) 30.97376
  67. 165 DATAPa Protactinium91(7-3a)231.0359
  68. 166 DATAPb Lead 82(6-4b) 207.2
  69. 167 DATAPd Palladium 46(5-8) 106.42
  70. 168 DATAPm Promethium 61(6-3a) (145)
  71. 169 DATAPo Polonium 84(6-6b) (209)
  72. 170 DATAPr Praseodymium59(6-3a)140.9077
  73. 171 DATAPt Platinum 78(6-8) 195.08
  74. 172 DATAPu Plutonium 94(7-3a) (244)
  75. 173 DATARa Radium 88(7-2a) 226.0254
  76. 174 DATARb Rubidium 37(5-1a) 85.4678
  77. 175 DATARe Rhenium 75(6-7a) 186.207
  78. 176 DATARh Rhodium 45(5-8) 102.9055
  79. 177 DATARn Radon 86(6-0) (222)
  80. 178 DATARu Ruthenium 44(5-8) 101.07
  81. 179 DATAS Sulfur 16(3-6b) 32.06
  82. 180 DATASb Antimony 51(5-5b) 121.75
  83. 181 DATASc Scandium 21(4-3a) 44.9559
  84. 182 DATASe Selenium 34(4-6b) 78.96
  85. 183 DATASi Silicon 14(3-4b) 28.0855
  86. 184 DATASm Samarium 62(6-3a) 150.36
  87. 185 DATASn Tin 50(5-4b) 118.69
  88. 186 DATASr Strontium 38(5-2a) 87.62
  89. 187 DATATa Tantalum 73(6-5a) 180.9479
  90. 188 DATATb Terbium 65(6-3a) 158.9254
  91. 189 DATATc Technetium 43(5-7a) (98)
  92. 190 DATATe Tellurium 52(5-6b) 127.60
  93. 191 DATATh Thorium 90(7-3a) 232.0381
  94. 192 DATATi Titanium 22(4-4a) 47.88
  95. 193 DATATl Thallium 81(6-3b) 204.383
  96. 194 DATATm Thulium 69(6-3a) 168.9342
  97. 195 DATAU Uranium 92(7-3a) 238.0289
  98. 196 DATAV Vanadium 23(4-5a) 50.9415
  99. 197 DATAW Tungsten 74(6-6a) 183.85
  100. 198 DATAXe Xenon 54(5-0) 131.29
  101. 199 DATAY Yttrium 39(5-3a) 88.9059
  102. 200 DATAYb Ytterbium 70(6-3a) 173.04
  103. 201 DATAZn Zinc 30(4-2b) 65.38
  104. 202 DATAZr Zirconium 40(5-4a) 91.22
  105. 203 DATA
  106. 310 DIM:MODE8:ERASEa$:DIMa$(17)
  107. 320 a$(0)="  1a 2a 3a 4a 5a 6a 7a 8  8  8"
  108. 330 a$(1)="  1b 2b 3b 4b 5b 6b 7b 0"
  109. 340 a$(2)="H"
  110. 350 a$(3)="                     He"
  111. 360 a$(4)="Li Be"
  112. 370 a$(5)="      B  C  N  O  F  Ne"
  113. 380 a$(6)="Na Mg"
  114. 390 a$(7)="      Al Si P  S  Cl Ar"
  115. 400 a$(8)="K  Ca Sc Ti V  Cr Mn Fe Co Ni"
  116. 410 a$(9)="Cu Zn Ga Ge As Se Br Kr"
  117. 420 a$(10)="Rb Sr Y  Zr Nb Mo Tc Ru Rh Pd"
  118. 430 a$(11)="Ag Cd In Sn Sb Te I  Xe"
  119. 440 a$(12)="Cs Ba ** Hf Ta W  Re Os Ir Pt"
  120. 450 a$(13)="Au Hg Tl Pb Bi Po At Rn"
  121. 460 a$(14)="Fr Ra **"
  122. 470 a$(15)=""
  123. 471 a$(16)="Lanthanoid: La Ce Pr Nd Pm Sm      Eu Gd Tb Dy Ho Er Tm Yb Lu"
  124. 472 a$(17)="Actinoid:Ac Th Pa U  Np Pu Am         Cm Bk Cf Es Fm Md No Lr"
  125. 490 a=2
  126. 500 CLS:IFa<16 THENPRINTa$(a MOD 2);TAB(0);MID$(STR$(INT(a/2)),2);":";a$(a); ELSEPRINTRIGHT$(STR$(a),1)":";a$(a);
  127. 510 k=ASC(INPUT$(1,@)):IFk=13 THEN620
  128. 520 IFk=28 ANDa<15 ANDFRAC(a/2)=0 THENa=a+1:GOTO500
  129. 525 IFk=29 ANDa>2 ANDFRAC(a/2)<>0 THENa=a-1:GOTO500
  130. 530 IFk=30 ANDa>3 THENa=a-SGN(17-a)-1:GOTO500
  131. 535 IFk=31 ANDa<17 THENa=a+(SGN(14.5-a)+1)/2+1:GOTO500
  132. 540 GOTO510
  133. 620 CLS:PRINT"Input the symbol :";TAB(0);"Push [EXE] then return";
  134. 630 LOCATE19,0:PRINT"   ";:LOCATE19,0:INPUT@3;d$:IFd$="" THEN500 ELSEe=LEN(d$):IFe=3 THEN630
  135. 635 d=ASC(d$):IFd>96 THENd=d-32
  136. 636 c=ASC(MID$(d$,2)):IFc<91 THENc=c+32
  137. 640 IFd<65 ORd>90 THEN630 ELSEd$=CHR$(d)+CHR$(c)
  138. 650 b=100+14*INT(d/67)+15*INT(d/70)+17*INT(d/76)+16*INT(d/79)+17*INT(d/83)+16*INT(d/85)
  139. 660 RESTORE(b)
  140. 665 READc$:e$=LEFT$(c$,2):IFASC(e$)>d THEN630
  141. 670 IFe$<>d$ THEN665 ELSELOCATE0,1:PRINTCHR$(5);c$;
  142. 690 GOTO630
  143.